以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]列按鈕  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=45514)
--  作者：JoyGum
--  发布时间：2014/1/28 16:02:00
--  [求助]列按鈕
表A第一列設按鈕，如何用按鈕將表A第一列值a第二列值b，新增到表B第一列形成ab，而表B第一列不可有重複值，若有重複值就不會新增。代碼應如何達成？謝謝！
--  作者：lsy
--  发布时间：2014/1/28 16:23:00
--  
楼主勤学好问，应该知道，有例子和没例子，理解和解决问题的速度相差太多。
--  作者：JoyGum
--  发布时间：2014/1/28 16:49:00
--  
以下是引用lsy在2014-1-28 16:23:00的发言：
楼主勤学好问，应该知道，有例子和没例子，理解和解决问题的速度相差太多。

非常感恩啊！附上例子。

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目15.table
--  作者：lsy
--  发布时间：2014/1/28 16:57:00
--  
e.Cancel = True
Dim ndr As DataRow = DataTables("表B").AddNew()
Dim fdr As DataRow = DataTables("表B").Find("第一列 = \'" & e.Row("第一列") & e.Row("第二列") & "\'")
If fdr Is Nothing Then
    ndr("第一列") = e.Row("第一列") & e.Row("第二列")
    ndr("第三列") = e.Row("第三列")
Else
    ndr.Delete()
End If
[此贴子已经被作者于2014-1-28 17:08:21编辑过]
--  作者：JoyGum
--  发布时间：2014/1/28 17:22:00
--  
以下是引用lsy在2014-1-28 16:57:00的发言：
e.Cancel = True
Dim ndr As DataRow = DataTables("表C").AddNew()
Dim fdr As DataRow = DataTables("表C").Find("第一列 = \'" & e.Row("第一列") & e.Row("第二列") & "\'")
If fdr Is Nothing Then
    ndr("第一列") = e.Row("第一列") & e.Row("第二列")
    ndr("第三列") = e.Row("第三列")
Else
    ndr.Delete()
End If

太感恩了，再次謝謝老師百忙中賜教。預祝老師新年快樂！心想事成！图片点击可在新窗口打开查看
--  作者：JoyGum
--  发布时间：2014/1/28 22:12:00
--  
以下是引用lsy在2014-1-28 16:57:00的发言：
e.Cancel = True
Dim ndr As DataRow = DataTables("表B").AddNew()
Dim fdr As DataRow = DataTables("表B").Find("第一列 = \'" & e.Row("第一列") & e.Row("第二列") & "\'")
If fdr Is Nothing Then
    ndr("第一列") = e.Row("第一列") & e.Row("第二列")
    ndr("第三列") = e.Row("第三列")
Else
    ndr.Delete()
End If
[此贴子已经被作者于2014-1-28 17:08:21编辑过]

不好意思，再請教老師。若第一列或第二列是空值也不能新增到表B

，代碼如何改？謝謝！
--  作者：lsy
--  发布时间：2014/1/29 8:06:00
--  

e.Cancel = True
Dim ndr As DataRow = DataTables("表B").AddNew()
Dim fdr As DataRow = DataTables("表B").Find("第一列 = \'" & e.Row("第一列") & e.Row("第二列") & "\'")

If e.Row.IsNull("第一列") = False AndAlso e.Row.IsNull("第二列") = False Then
    If fdr Is Nothing Then
        ndr("第一列") = e.Row("第一列") & e.Row("第二列")
        ndr("第三列") = e.Row("第三列")
    Else
        ndr.Delete()
    End If

End If
--  作者：JoyGum
--  发布时间：2014/1/29 12:55:00
--  
以下是引用lsy在2014-1-29 8:06:00的发言：

e.Cancel = True
Dim ndr As DataRow = DataTables("表B").AddNew()
Dim fdr As DataRow = DataTables("表B").Find("第一列 = \'" & e.Row("第一列") & e.Row("第二列") & "\'")

If e.Row.IsNull("第一列") = False AndAlso e.Row.IsNull("第二列") = False Then
    If fdr Is Nothing Then
        ndr("第一列") = e.Row("第一列") & e.Row("第二列")
        ndr("第三列") = e.Row("第三列")
    Else
        ndr.Delete()
    End If

End If

太感恩了，兩種方式都學到，再次謝謝Isy老師不嫌我這老人家囉說！