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


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

主题：SQLTable动态表的绑定与设置显示行
美女呀，离线，留言给我吧！
采菊东篱下
 小大  121楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  122楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

放到全局表事件AfterEdit，然后开启全局表事件

 回到顶部
美女呀，离线，留言给我吧！
采菊东篱下
 小大  123楼 | 信息 | 搜索 | 邮箱 | 主页 | 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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  124楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

    If c > 0 Then
        If d < fd Or d > ld Then
            e.cancel = true
            MessageBox.Show("修改的日期不能超出已保存单号所属月份","提示")
        End If
    End If
 回到顶部
美女呀，离线，留言给我吧！
采菊东篱下
 小大  125楼 | 信息 | 搜索 | 邮箱 | 主页 | 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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  126楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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


 回到顶部
美女呀，离线，留言给我吧！
采菊东篱下
 小大  127楼 | 信息 | 搜索 | 邮箱 | 主页 | 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月份没取消修改，车牌号码又没取消修改，一保存，原来的数据还在，生生多了一行数据！这样的代码不符合要求的！
 回到顶部
美女呀，离线，留言给我吧！
采菊东篱下
 小大  128楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
 回到顶部
美女呀，离线，留言给我吧！
采菊东篱下
 小大  129楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

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


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


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

日期是控件，按条件取消日期控件的修改代码写在全局表事件里不对吧？

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04883 秒, 5 次数据查询