主题：[讨论]给指定的单元格赋值

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:54321 (1) (1).table

如果在窗口中加入了SplitContainer等容器类的控件后就不行了吗？

参考 http://www.foxtable.com/help/topics/2437.htm

 

基本上搞定了。现在还有一个问题。如何自动调整行高。每次都得使用鼠标来调，比较麻烦。

1、获取姓名有多少人；

 

2、大致估算一个人，要多少高度；

 

3、人数*高度 即可

弱弱的问一个问题，行高的设置属性是什么，我没有找到。

确定按钮

 

Dim mydate As Date=e.Form.controls("DateTimePicker1").value
Dim mydate1 As Date =e.Form.controls("DateTimePicker2").value
Dim frm As  WinForm.Form = Forms("排班表")
If frm.Opened Then
    frm.Close
End If
frm.Open()
frm.Controls("TextBox1").value =mydate
frm.Controls("TextBox2").value =mydate1
SystemReady = False
Functions.Execute("日历_赋值",mydate,mydate1,frm.Controls("Table1").Table)
SystemReady = True
Dim count = DataTables("医生名单").compute("count(工号)")
frm.Controls("Table1").Table.DefaultRowHeight = 19.2 * (count+1)
frm.Controls("Table1").Table.SetHeaderRowHeight(20)
frm.Controls("Table1").Table.refresh
e.Form.Close

谢谢袍哥！搞定！做下一个了，工作量登记及统计。