[求助]列按鈕 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]列按鈕

共有3894人关注过本帖树形打印复制链接主题：[求助]列按鈕

JoyGum

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：503 积分：3633 威望：0 精华：0 注册：2013/12/5 7:40:00

[求助]列按鈕 发帖心情

Post By：2014/1/28 16:02:00 [只看该作者]

表A第一列設按鈕，如何用按鈕將表A第一列值a第二列值b，新增到表B第一列形成ab，而表B第一列不可有重複值，若有重複值就不會新增。代碼應如何達成？謝謝！

lsy

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：5246 积分：33163 威望：0 精华：8 注册：2013/1/17 21:28:00

Post By：2014/1/28 16:23:00 [只看该作者]

楼主勤学好问，应该知道，有例子和没例子，理解和解决问题的速度相差太多。

JoyGum

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：503 积分：3633 威望：0 精华：0 注册：2013/12/5 7:40:00

Post By：2014/1/28 16:49:00 [只看该作者]

以下是引用lsy在2014-1-28 16:23:00的发言：
楼主勤学好问，应该知道，有例子和没例子，理解和解决问题的速度相差太多。

非常感恩啊！附上例子。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目15.table

lsy

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：5246 积分：33163 威望：0 精华：8 注册：2013/1/17 21:28:00

Post By：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

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：503 积分：3633 威望：0 精华：0 注册：2013/12/5 7:40:00

Post By：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

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：503 积分：3633 威望：0 精华：0 注册：2013/12/5 7:40:00

Post By：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

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：5246 积分：33163 威望：0 精华：8 注册：2013/1/17 21:28:00

Post By：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

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：503 积分：3633 威望：0 精华：0 注册：2013/12/5 7:40:00

Post By：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("第二列") & "'")

End If

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

下一主题 >> << 上一主题

主题：[求助]列按鈕