主题：如何实现这种想法？谢谢

如果二表的列名称相同,可以不写来源列和接收列

Syscmd.Row.Height()

如何用？谢谢

我想设置审核表的行高！！！否则显示不全！！！谢谢

按钮或菜单中均可

如何自动设置审核表的行高！！！谢谢

 

AutoSizeRows

自动设置各行高度。

例如员工表有一个备注列，备注的内容有长有短，希望备注列的宽度为100，然后自动设置各行高度：

Tables("员工").Cols("备注").Width= 100
Tables("员工").AutoSizeRows()

在窗口中显示的行高不够，不能全部显示！！！！

 

DataTables("审核").DataRows.Clear()  '清空指定表数据

dim f As New Filler

 f.SourceTable = DataTables("调资基础数据") '指定数据来源

f.SourceCols = "序号,单位名称,姓名,身份证号,性别,出生时间,参加工作时间" '指定数据来源列

f.DataTable = DataTables("审核") '指定数据接收表

f.DataCols = "序号,单位名称,姓名,身份证号,性别,出生时间,参加工作时间" '指定数据接收列

f.Fill() '填充数据

For Each dr As DataRow In DataTables("审核").DataRows

    If dr("身份证号").Length <> 15 AndAlso dr("身份证号").Length <> 18 Then

        dr("审核")="录入身份证号位数错误!!!"

    else

        dr("审核")="..."

    End If

    If dr("性别")<> ReadSex(dr("身份证号")) Then

        dr("审核")= dr("审核") & Chr(13) & Chr(10)&"录入性别与身份证号性别不符!!!"

    End If

    If dr("出生时间")<> ReadBirthDay(dr("身份证号")) Then

        dr("审核")= dr("审核") & Chr(13) & Chr(10) &"录入出生日期与身份证号出生日期不符!!!"

    End If

    If dr("参加工作时间").Year-dr("出生时间").Year < 18

        dr("审核")= dr("审核") & Chr(13) & Chr(10)&"工作时间与出生日期之差,不能小于18年,请核实!!!"

    End If

    if dr("审核").Contains("...") then

        dr("审核")= dr("审核").Replace("...","")

    end if   

Next

DataTables("审核").DeleteFor("[审核] Is Null ")

Tables("审核").Cols("审核").Width= 150
Tables("审核").AutoSizeRows()

Dim frm As WinForm.Form

frm = Forms("查看错误提示")

frm.Open()

还是不行的