Foxtable(狐表)用户栏目专家坐堂 → SQLTable动态表的绑定与设置显示行


  共有8713人关注过本帖树形打印复制链接

主题:SQLTable动态表的绑定与设置显示行

帅哥,在线噢!
有点蓝
  61楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105470 积分:536335 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/3/19 10:24:00 [只看该作者]

DataTables("月租收费_Table1").SQLUpdate(drs)

 回到顶部
美女呀,离线,留言给我吧!
采菊东篱下
  62楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1863 积分:10262 威望:0 精华:0 注册:2019/4/6 8:45:00
  发帖心情 Post By:2021/3/19 10:31:00 [只看该作者]

我要保存到缴费情况表,保存在窗口有什么用,窗口一关,数据全被删除了!

 回到顶部
帅哥,在线噢!
有点蓝
  63楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105470 积分:536335 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/3/19 10:49:00 [只看该作者]

望天!
这个是直接保存到后台数据库的,保存后重新加载数据

 回到顶部
美女呀,离线,留言给我吧!
采菊东篱下
  64楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1863 积分:10262 威望:0 精华:0 注册:2019/4/6 8:45:00
  发帖心情 Post By:2021/3/19 11:16:00 [只看该作者]

你试试
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:小区车辆管理(20170319).foxdb

密码:888888
双击缴费表,删除弹窗口里的止计日期,在缴费月数输入8,保存,缴费情况表里的数据根本没改变,我这样做目的是保存编辑数据。


 回到顶部
帅哥,在线噢!
有点蓝
  65楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105470 积分:536335 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/3/19 11:28:00 [只看该作者]

            For Each dr As DataRow In drs
                Dim trs As List(of DataRow) = DataTables("月租收费_Table1").Select("[车牌号码] is not null")
                For i As Integer = 1 To trs.count - 1
                    dr("缴费_月租_起计日期") = trs(i)("缴费_月租_起计日期")
                    dr("缴费_月租_止计日期") = trs(i)("缴费_月租_止计日期")
                    dr("缴费_月租_缴费月数") = trs(i)("缴费_月租_缴费月数")
                    dr("缴费_月租_月租单价") = trs(i)("缴费_月租_月租单价")
                Next
            Next
            DataTables("缴费情况").SQLUpdate(drs)
            DataTables("缴费情况").Load

 回到顶部
美女呀,离线,留言给我吧!
采菊东篱下
  66楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1863 积分:10262 威望:0 精华:0 注册:2019/4/6 8:45:00
  发帖心情 Post By:2021/3/19 12:03:00 [只看该作者]

我试过了,缴费情况表里的数据没发生任何改变,还有自动行高也没有效果!

 回到顶部
帅哥,在线噢!
有点蓝
  67楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105470 积分:536335 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/3/19 12:07:00 [只看该作者]

我测试没有问题

 回到顶部
美女呀,离线,留言给我吧!
采菊东篱下
  68楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1863 积分:10262 威望:0 精华:0 注册:2019/4/6 8:45:00
  发帖心情 Post By:2021/3/19 12:54:00 [只看该作者]

哦,我明白了,应该是这代码阻止了保存,要把取消操作改为替代
Select Case e.DataCol.name
    Case "车牌号码","单号"
        Dim xh As String
        Dim gg As String
        If e.DataCol.Name= "车牌号码" Then
            xh = e.NewValue
            gg = e.DataRow("单号")
        Else
            gg = e.NewValue
            xh = e.DataRow("车牌号码")
        End If
        If xh > "" AndAlso gg  > "" Then
            Dim dr As DataRow = e.DataRow
            If e.DataTable.Find("车牌号码 = '" & xh & "' And 单号 = '" & gg & "'") IsNot Nothing Then
                MessageBox.Show("已经录入!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
                e.Cancel = True
            End If
        End If
End Select

 回到顶部
美女呀,离线,留言给我吧!
采菊东篱下
  69楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1863 积分:10262 威望:0 精华:0 注册:2019/4/6 8:45:00
  发帖心情 Post By:2021/3/19 15:15:00 [只看该作者]

我删除了缴费情况DataColChanging事件中的代码,改在DataColChanged中写,把不允许重复录入改为重算保存,但执行后值无改变。
Select Case e.DataCol.name
    Case "车牌号码","单号"
        Dim xh As String
        Dim gg As String
        If e.DataCol.Name= "车牌号码" Then
            xh = e.NewValue
            gg = e.DataRow("单号")
        Else
            gg = e.NewValue
            xh = e.DataRow("车牌号码")
        End If
        If xh > "" AndAlso gg  > "" Then
            Dim dr As DataRow = e.DataRow
            If e.DataTable.Find("车牌号码 = '" & xh & "' And 单号 = '" & gg & "'") IsNot Nothing Then
                'MessageBox.Show("已经录入!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
                If e.Form.name = "月租收费"
                    Dim drs As List(of DataRow) = DataTables("缴费情况").SQLSelect("[单号] = '" & Forms("月租收费").Controls("dh").text & "' And ([已审核] = False Or [已审核] Is null)")
                    If e.Form.Controls("rq").text = "" Then
                        messagebox.show("请选择日期")
                        Return
                    ElseIf Tables("月租收费_Table1").Compute("Count([车牌号码])") = 0 Then
                        Return
                    ElseIf drs.count > 0 Then
                        For Each dr0 As DataRow In drs
                            Dim trs As List(of DataRow) = DataTables("月租收费_Table1").Select("[车牌号码] is not null")
                            For i0 As Integer = 1 To trs.count - 1
                                dr0("缴费_月租_起计日期") = trs(i0)("缴费_月租_起计日期")
                                dr0("缴费_月租_止计日期") = trs(i0)("缴费_月租_止计日期")
                                dr0("缴费_月租_缴费月数") = trs(i0)("缴费_月租_缴费月数")
                                dr0("缴费_月租_月租单价") = trs(i0)("缴费_月租_月租单价")
                            Next
                        Next
                    End If
                    DataTables("缴费情况").SQLUpdate(drs)
                    DataTables("缴费情况").Load
                ElseIf e.Form.name = "临时收费录入"
                    Dim drs1 As List(of DataRow) = DataTables("缴费情况").SQLSelect("[单号] = '" & Forms("临时收费录入").Controls("dh").text & "' And ([已审核] = False Or [已审核] Is null)")
                    If e.Form.Controls("rq").text = "" Then
                        messagebox.show("请选择日期")
                        Return
                    ElseIf Tables("临时收费录入_Table1").Compute("Count([车牌号码])") = 0 Then
                        Return
                    ElseIf drs1.count > 0 Then
                        For Each dr1 As DataRow In drs1
                            Dim trs1 As List(of DataRow) = DataTables("临时收费录入_Table1").Select("[车牌号码] is not null")
                            For i1 As Integer = 1 To trs1.count - 1
                                dr1("缴费_月租_起计日期") = trs1(i1)("缴费_月租_起计日期")
                                dr1("缴费_月租_止计日期") = trs1(i1)("缴费_月租_止计日期")
                                dr1("缴费_月租_缴费月数") = trs1(i1)("缴费_月租_缴费月数")
                                dr1("缴费_月租_月租单价") = trs1(i1)("缴费_月租_月租单价")
                            Next
                        Next
                        DataTables("缴费情况").SQLUpdate(drs1)
                        DataTables("缴费情况").Load
                    ElseIf e.Form.name = "其他收费录入"
                        Dim drs2 As List(of DataRow) = DataTables("缴费情况").SQLSelect("[单号] = '" & Forms("其他收费录入").Controls("dh").text & "' And ([已审核] = False Or [已审核] Is null)")
                        If e.Form.Controls("rq").text = "" Then
                            messagebox.show("请选择日期")
                            Return
                        ElseIf Tables("其他收费录入_Table1").Compute("Count([车牌号码])") = 0 Then
                            Return
                        ElseIf drs2.count > 0 Then
                            For Each dr2 As DataRow In drs2
                                Dim trs2 As List(of DataRow) = DataTables("其他收费录入_Table1").Select("[车牌号码] is not null")
                                For i2 As Integer = 1 To trs2.count - 1
                                    dr2("缴费_月租_起计日期") = trs2(i2)("缴费_月租_起计日期")
                                    dr2("缴费_月租_止计日期") = trs2(i2)("缴费_月租_止计日期")
                                    dr2("缴费_月租_缴费月数") = trs2(i2)("缴费_月租_缴费月数")
                                    dr2("缴费_月租_月租单价") = trs2(i2)("缴费_月租_月租单价")
                                Next
                            Next
                            DataTables("缴费情况").SQLUpdate(drs2)
                            DataTables("缴费情况").Load
                        End If
                    End If
                    'e.Cancel = True
                End If
            End If
        End If
End Select

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

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

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



 回到顶部
美女呀,离线,留言给我吧!
采菊东篱下
  70楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1863 积分:10262 威望:0 精华:0 注册:2019/4/6 8:45:00
  发帖心情 Post By:2021/3/19 15:18:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:小区车辆管理(编辑).rar

密码:888888

 回到顶部