-- 作者:大红袍
-- 发布时间:2016/7/5 15:30:00
--
1、DataColChanging事件
If e.DataCol.Name = "某列" Then
If e.NewValue > 1 Then
e.NewValue = e.NewValue / 100
End If
End If
2、
Dim sj1 As Double = val(e.Value) If sj1 = 0 Then
sj.ForeColor = Color.FromARGB(255, 192, 255) Else
sj.ForeColor = Color.Black End If
3、在find函数查找之前,先设置
DataTables("订单").BaseTable.DataSet.CaseSensitive = True \'区分大小写
|