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


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

主题：SQLTable动态表的绑定与设置显示行
美女呀，离线，留言给我吧！
采菊东篱下
 小大  71楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1881 积分：10368 威望：0 精华：0 注册：2019/4/6 8:45:00 		  发帖心情 Post By：2021/3/21 23:57:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下：qq图片20210321235633.png
图片点击可在新窗口打开查看
 回到顶部
美女呀，离线，留言给我吧！
采菊东篱下
 小大  72楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1881 积分：10368 威望：0 精华：0 注册：2019/4/6 8:45:00 		  发帖心情 Post By：2021/3/22 0:09:00 [显示全部帖子]

全局的ValidateEdit事件我已经写入了：
For Each dt As DataTable In DataTables
    dt.GlobalHandler.AfterEdit = True
Next

窗口中的ValidateEdit事件写入：
With Tables("月租收费_Table1")
    .DataTable.GlobalHandler.AfterEdit = True
End With

依然不行！
 回到顶部
美女呀，离线，留言给我吧！
采菊东篱下
 小大  73楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1881 积分：10368 威望：0 精华：0 注册：2019/4/6 8:45:00 		  发帖心情 Post By：2021/3/22 10:17:00 [显示全部帖子]

Dim yzdh As WinForm.TextBox = e.Form.Controls("dh")'dh是单号控件
Dim di As String = yzdh.Value 'di单号控件中的变量
Dim yzrq As WinForm.DateTimePicker = e.Form.Controls("rq") 'rq是日期控件
Dim d As Date = yzrq.Value
Dim y As Integer = d.Year
Dim m As Integer = d.Month
Dim Days As Integer = Date.DaysInMonth(y,m)
Dim fd As Date = New Date(y,m,1) '获得该月的第一天
Dim ld As Date = New Date(y,m,Days) '获得该月的最后一天
Dim c As Integer = DataTables("缴费情况").SQLCompute("Count([车牌号码])","[单号] = '" & Forms("月租收费").Controls("dh").Value & "'")
If c > 0 Then
    If d < fd Or d > ld Then
        e.Cancel = True '如果是,取消操作
        MessageBox.Show("修改的日期不能超出已保存单号所属月份","提示")
    ElseIf e.DataCol.Name = "车牌号码" AndAlso e.DataRow.IsNull("车牌号码") = False Then
        e.Cancel = True
    End If
End If
这段代码写在月租收费窗口的DataColChanging事件，修改车牌号码时，其依然被修了，在而且修改月租收费窗口的日期并无弹窗提示。
 回到顶部
美女呀，离线，留言给我吧！
采菊东篱下
 小大  74楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1881 积分：10368 威望：0 精华：0 注册：2019/4/6 8:45:00 		  发帖心情 Post By：2021/3/22 10:23:00 [显示全部帖子]

把代码写到全局表事件的AfterEdit上：
For Each dt As DataTable In DataTables
    dt.GlobalHandler.AfterEdit = True
Next

把代码写到记账凭证窗口的AfterEdit事件上：
With Tables("记账凭证_Table1")
    .DataTable.GlobalHandler.AfterEdit = True
End With
窗口上依然没有自动行高！
 回到顶部
美女呀，离线，留言给我吧！
采菊东篱下
 小大  75楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1881 积分：10368 威望：0 精华：0 注册：2019/4/6 8:45:00 		  发帖心情 Post By：2021/3/22 10:37:00 [显示全部帖子]

Dim yzdh As WinForm.TextBox = e.Form.Controls("dh")'dh是单号控件
Dim di As String = yzdh.Value 'di单号控件中的变量
Dim yzrq As WinForm.DateTimePicker = e.Form.Controls("rq") 'rq是日期控件
Dim d As Date = yzrq.Value
Dim y As Integer = d.Year
Dim m As Integer = d.Month
Dim Days As Integer = Date.DaysInMonth(y,m)
Dim fd As Date = New Date(y,m,1) '获得该月的第一天
Dim ld As Date = New Date(y,m,Days) '获得该月的最后一天
Dim c As Integer = DataTables("缴费情况").SQLCompute("Count([车牌号码])","[单号] = '" & Forms("月租收费").Controls("dh").Value & "'")
If c > 0 Then
    If d < fd Or d > ld Then
        e.Cancel = True '如果是,取消操作
        MessageBox.Show("修改的日期不能超出已保存单号所属月份","提示")
    ElseIf e.DataCol.Name = "车牌号码" AndAlso e.DataRow.IsNull("车牌号码") = False Then
        e.Cancel = True
    End If
End If
这段代码到全局表DataColChanging事件的中一样修改车牌号码时，其依然被修了，在而且修改月租收费窗口的日期并无弹窗提示。
 回到顶部
美女呀，离线，留言给我吧！
采菊东篱下
 小大  76楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1881 积分：10368 威望：0 精华：0 注册：2019/4/6 8:45:00 		  发帖心情 Post By：2021/3/22 10:46:00 [显示全部帖子]

把这代码放在记账凭证窗口的AfterEdit事件，依然不能自动行高。
If e.Col.Name = "摘要" Then
    e.Table.AutoSizeRow(e.Row.Index)
End If
If e.Col.Name = "会计科目" Then
    e.Table.AutoSizeRow(e.Row.Index)
End If
If e.Col.Name = "明细科目" Then
    e.Table.AutoSizeRow(e.Row.Index)
End If
 回到顶部
美女呀，离线，留言给我吧！
采菊东篱下
 小大  77楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1881 积分：10368 威望：0 精华：0 注册：2019/4/6 8:45:00 		  发帖心情 Post By：2021/3/22 13:45:00 [显示全部帖子]

全局事件中的DataColChanging事件红色代码提示错误，我怎么改它都错！
If Forms.contains("月租收费") = True Then
    Dim yzdh As WinForm.TextBox = Forms("月租收费").Controls("dh")'dh是单号控件
    Dim di As String = yzdh.Value 'di单号控件中的变量
    Dim yzrq As WinForm.DateTimePicker = Forms("月租收费").Controls("rq") 'rq是日期控件
    Dim d As Date = yzrq.Value
    Dim y As Integer = d.Year
    Dim m As Integer = d.Month
    Dim Days As Integer = Date.DaysInMonth(y,m)
    Dim fd As Date = New Date(y,m,1) '获得该月的第一天
    Dim ld As Date = New Date(y,m,Days) '获得该月的最后一天
    Dim c As Integer = DataTables("缴费情况").SQLCompute("Count([车牌号码])","[单号] = '" & Forms("月租收费").Controls("dh").Value & "'")
    If c > 0 Then
        If d < fd Or d > ld Then
            Forms("月租收费").Controls("rq").Cancel = True '如果是,取消操作
            MessageBox.Show("修改的日期不能超出已保存单号所属月份","提示")
        ElseIf DataTables("月租收费_Table1").DataCol.Name = "车牌号码" AndAlso DataTables("月租收费_Table1").DataRow.IsNull("车牌号码") = False Then
            DataTables("月租收费_Table1").DataCol.Name.Cancel = True
        End If
    End If
End If

[此贴子已经被作者于2021/3/22 16:02:39编辑过]
 回到顶部
美女呀，离线，留言给我吧！
采菊东篱下
 小大  78楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1881 积分：10368 威望：0 精华：0 注册：2019/4/6 8:45:00 		  发帖心情 Post By：2021/3/22 16:00:00 [显示全部帖子]

  ElseIf DataTables("月租收费_Table1").DataCol.Name = "车牌号码" AndAlso DataTables("月租收费_Table1").DataRow.IsNull("车牌号码") = False Then
            DataTables("月租收费_Table1").DataCol.Name.Cancel = True
还有这个条件如果缴费情况表存在单号，不允取消车牌号码修改，这里报错。
[此贴子已经被作者于2021/3/22 16:02:59编辑过]
 回到顶部
美女呀，离线，留言给我吧！
采菊东篱下
 小大  79楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1881 积分：10368 威望：0 精华：0 注册：2019/4/6 8:45:00 		  发帖心情 Post By：2021/3/22 16:24:00 [显示全部帖子]

我原来是这样的：
'以这代码为准:
If Forms.contains("月租收费") = True Then
    Dim yzdh As WinForm.TextBox = Forms("月租收费").Controls("dh")'dh是单号控件
    Dim di As String = yzdh.Value 'di单号控件中的变量
    Dim yzrq As WinForm.DateTimePicker = Forms("月租收费").Controls("rq") 'rq是日期控件
    Dim d As Date = yzrq.Value
    Dim y As Integer = d.Year
    Dim m As Integer = d.Month
    Dim Days As Integer = Date.DaysInMonth(y,m)
    Dim fd As Date = New Date(y,m,1) '获得该月的第一天
    Dim ld As Date = New Date(y,m,Days) '获得该月的最后一天
    Dim c As Integer = DataTables("缴费情况").SQLCompute("Count([车牌号码])","[单号] = '" & Forms("月租收费").Controls("dh").Value & "'")
    If c > 0 Then
        If d < fd Or d > ld Then
            e.cancel = True '如果是,取消操作
            MessageBox.Show("修改的日期不能超出已保存单号所属月份","提示")
        ElseIf e.DataCol.Name = "车牌号码" AndAlso e.DataRow.IsNull("车牌号码") = False Then
            e.cancel = True
        End If
    End If
End If
开始提示错误，就越改越乱了！刚从医院回来，重启电脑又没报错了，纵然不报错，如图：yz-202012-00003号单，

图片点击可在新窗口打开查看此主题相关图片如下：qq图片20210322161506.png
图片点击可在新窗口打开查看
日期改为2月份没取消修改，车牌号码又没取消修改，一保存，原来的数据还在，生生多了一行数据！这样的代码不符合要求的！
 回到顶部
美女呀，离线，留言给我吧！
采菊东篱下
 小大  80楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1881 积分：10368 威望：0 精华：0 注册：2019/4/6 8:45:00 		  发帖心情 Post By：2021/3/22 16:35:00 [显示全部帖子]

写在全局表事件的AfterEdit事件代码也报错：

图片点击可在新窗口打开查看此主题相关图片如下：qq图片20210322114501.png
图片点击可在新窗口打开查看
If Forms.contains("月租收费") = True Then
    With Tables("月租收费_Table1")
        If e.Col.Name = "备注" Then
            .AutoSizeRow(e.Row.Index)
        End If
    End With
ElseIf Forms.contains("临时收费录入") = True Then
    With Tables("临时收费录入_Table1")
        If e.Col.Name = "备注" Then
            .AutoSizeRow(e.Row.Index)
        End If
    End With
ElseIf Forms.contains("其他收费录入") = True Then
    With Tables("其他收费录入_Table1")
        If e.Col.Name = "备注" Then
            .AutoSizeRow(e.Row.Index)
        End If
    End With
ElseIf Forms.contains("记账凭证") = True Then
    With Tables("记账凭证_Table1")
        If e.Col.Name = "摘要" Or e.Col.Name = "会计科目" Or e.Col.Name = "明细科目" Then
            .AutoSizeRow(e.Row.Index)
        End If
    End With
End If
 回到顶部
总数 98 上一页 1 2 3 4 5 6 7 8 9 10 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 5 次数据查询