1。布尔类型转换成0和1
eg:
声明变量:Public ShowMe As Boolean
转换成0和1 : IIf(Frmfilter.ShowDetail, 1, 0)
2.VB中不允许传入null值,所以有参数是null值时,
要提前处理掉,可以利用isnull函数转换
- 可以在SQL部分,提前做处理,将null值转化为 0或 ‘’
- 可以在VB处理,
eg:
IIf(isnull(rs(5)), 0, rs(5))
IIf(isnull(rs(5)), '', rs(5))
3.VSFlexGrid控件
想要随意拖动列,属性AllowUserResizing,改为3:flexResizeBoth
即可
4.对于时间的函数
'参照这个弄其他的日期控件--原理:日期变更的时候重新设置另一个日期控件的最大值或最小值
Private Sub DTPicker1_Change()
DTPicker2.MinDate = DTPicker1.Value
End Sub
Private Sub DTPicker2_Change()
DTPicker1.MaxDate = DTPicker2.Value
End Sub
Private Sub DTPicker3_Change()
DTPicker4.MinDate = DTPicker3.Value
End Sub
Private Sub DTPicker4_Change()
DTPicker3.MaxDate = DTPicker4.Value
End Sub
Private Sub Form_Load()
DTPicker2.MinDate = "1999 / 1 / 1"
DTPicker1.MaxDate = "9999 / 12 / 31"
DTPicker4.MinDate = "1999 / 1 / 1"
DTPicker3.MaxDate = "9999 / 12 / 31"
End Sub
5.VB里sql代码的书写
eg:sql语句如下:
EXEC PROC_TEST 'TEST1','TEST2',1
则:对应VB的书写如下:
StrSql = " EXEC PROC_TEST '" & TEST1 & "','" & TEST2 & "','" & IIf(ShowMe, 1, 0) & "'"
'Private Sub Form_Load() '加载窗体
''Combo1.Text
''Combo1.ListIndex = 1
'End Sub
7.视图—监视窗口
8.VSFlexGrid控件
VSFlexGrid1.FixedRows = 1
9.image 控件
属性 DragMode :表示该对象的拖动模式,
取值为:
0 Manual(手动)
1 Automatic(自动)