vb修改DTPicker1日期问题
Private Sub Check1_Click()
If Check1.Value = 1 Then
DTP1.Enabled = True
Else
DTP1.Enabled = False
End If
End Sub
Private Sub Check2_Click()
If Check2.Value = 1 Then
DTP2.Enabled = True
Else
DTP2.Enabled = False
End If
End Sub
Private Sub cmd_Click()
Set cn = New ADODB.Connection
Set res = New ADODB.Recordset
cn.Open "provider=SQLOLEDB;server=it;database=khgl1;uid=sa;pwd=123456"
res.CursorLocation = adUseClient
res.Open "select * from khgl", cn, adOpenStatic, adLockOptimistic
Set frm_xxxg.MSHFlexGrid1.DataSource = res
On Error Resume Next
If Check1.Value = 1 Then
res!来电时间 = DTP1.Value
res!去电时间 = DTP2.Value
-----
res.Update
res.Close
MsgBox ("修改成功")
这是我的修改代码，修改日期,当存入日期之后，无法清空了，主要采用 check控件控制dtpicker，希望在dtpicker就成灰色，修改保存的时候不存入日期！
那在dtpicker不能用的时候就不要 res!来电时间 = DTP1.Value ,判断一下
不判断只能修改日期，无法清空
dtpicker还有一个CHECKBOX属性 可以结合用一下
checkbox设置为true之后，把dtpicker设置为null，也不行
来电时间和来电时间在数据库中是什么类型?字符�
相关问答：
vb写的程序编译后,运行若出错,如何知道到在哪一行?
按Ctrl+F5预编译，出错时会跳转到错误行
不是那样的了,我是要求编译成EXE后运行,提示出错能否提示错在哪一行.
我编译后在我的电脑上运行没问题,但� ......
Option Explicit
Dim N As Integer
Private Sub Command1_Click()
Dim A As Integer, B As Integer
A = 2: B = 3
For N = 1 To 6
......
VB code:
'sqlstr = "INSERT INTO useinfo " & "(usename ,password)" & " values (' " & usename & " ' " & ",'" & password & ......
要用vb打印一条线，长度是100毫米怎么写？
关注
VB code:
Printer.ScaleMode = vbMillimeters
Printer.Line (10, 10)-(110, 10)
Printer.ScaleMode = vbMillimeters
Print ......
