以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  这样写对吗？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=61413)
--  作者：有点甜
--  发布时间：2014/12/11 22:03:00
--  
 

Dim ts As Double = 1.2

e.Form.Controls("NumericComboBox2").text = Tables("表A").Current("日工资") * ts
--  作者：有点甜
--  发布时间：2014/12/11 22:09:00
--  

Dim ts As Double=1.2

Dim r As DataRow
r = DataTables("职工档案").Find("编号=\'" & e.Form.Controls("TextBox1").Text & "\'")
If r IsNot Nothing Then
    e.Form.Controls("NumericComboBox2").text=r("日工资")*ts
Else
    e.Form.Controls("NumericComboBox2").text=Nothing
End If
--  作者：有点甜
--  发布时间：2014/12/11 22:15:00
--  

Dim ts As Double=1.2

Dim r As DataRow
r = DataTables("职工档案").Find("编号=\'" & e.Form.Controls("TextBox1").Text & "\'")
If r IsNot Nothing Then
    e.Form.Controls("NumericComboBox2").text=val(r("日工资"))*ts
Else
    e.Form.Controls("NumericComboBox2").text=Nothing
End If