主题：三个小问题

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  '区分大小写