以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  三个小问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=87199)

--  作者:漂亮美眉vszh
--  发布时间:2016/7/5 15:25:00
--  三个小问题

各位老师:1.直接在双精度列内输入30,自动转成30%

 


图片点击可在新窗口打开查看此主题相关图片如下:百分值.png
图片点击可在新窗口打开查看
2.我的表达式值为0,绑定窗口后,也会出现0值,我在DATAFORMAT 中写代码:

Dim sj As WinForm.Label = e.Form.Controls("Label05")
Dim sj1 As Double = sj.text
If sj1 = 0 Then

sj.ForeColor = Color.FromARGB(255, 192, 255)
Else

sj.ForeColor = Color.Black
End If

 

但打开窗口时报错~~

 


图片点击可在新窗口打开查看此主题相关图片如下:0值.png
图片点击可在新窗口打开查看


 


图片点击可在新窗口打开查看此主题相关图片如下:333.png
图片点击可在新窗口打开查看

3.设置了禁止重复,但我要把原来的NI,改成小写的Ni,报错,提示信息已存在,必须要先清空,再重新输入才行,如果解决识别大小写问题?


 


--  作者:漂亮美眉vszh
--  发布时间:2016/7/5 15:25:00
--  

图片点击可在新窗口打开查看此主题相关图片如下:大小写.png
图片点击可在新窗口打开查看

--  作者:大红袍
--  发布时间: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  \'区分大小写