以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  PrepareEdit 问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=61663)
--  作者：girlll
--  发布时间：2014/12/16 21:18:00
--  PrepareEdit 问题
如果生产单号是焦点单元格，并且不为空，那么生产进行这个逻辑判断列的复选框就自动勾上
If e.IsFocusCell Then \'如果是焦点所在单元格
    If e.Col.Name = "生产单号" <> "" Then \'如果正在编辑的是生产单号列
        e.DataRow("生产进行") = True \'生产进行这一列的复选框的值是真
    End If
End If
--  作者：有点甜
--  发布时间：2014/12/16 21:24:00
--  
If e.IsFocusCell Then \'如果是焦点所在单元格
    If e.Col.Name = "生产单号" AndAlso e.Row.IsNull("生产单号") = False Then \'如果正在编辑的是生产单号列
        e.DataRow("生产进行") = True \'生产进行这一列的复选框的值是真
    End If
End If
--  作者：有点甜
--  发布时间：2014/12/16 21:25:00
--  

 其实你应该去写datacochanged事件的。

 

 http://www.foxtable.com/help/topics/0625.htm

 
--  作者：girlll
--  发布时间：2014/12/16 21:36:00
--  
谢谢
If e.DataCol.Name = "身份证号码" Then \'如果更改的是身份证号码列
    If e.DataRow.IsNull("身份证号码") Then \'身份证号码是否为空
        e.DataRow("出生日期") = Nothing \'如果为空,则清除出生日期
    Else
        \'否则从身份证号码列中提取出生日期
        e.DataRow("出生日期") = ReadBirthday(e.DataRow("身份证号码"))
    End If
End If