1、DataColChanging事件
If e.DataCol.Name = "某列" Then
If e.NewValue > 1 Then
e.NewValue = e.NewValue / 100
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.BlackEnd If
3、在find函数查找之前,先设置
DataTables("订单").BaseTable.DataSet.CaseSensitive = True '区分大小写