界面问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

老师好，我在项目的afteropenproject事件里加入下面的代码，请问为什么不能打开Daily窗口？

Dim PB As WinForm.Panel = Forms("MainWindow").Controls("Panel1")

Forms("Daily").OPEN(-1000,-1500)

Forms("Daily).BaseForm.TopLevel = False

Forms("Daily").BaseForm.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None

Forms("Daily").BaseForm.Dock = System.Windows.Forms.DockStyle.Fill

PB.BaseControl.Controls.Clear

PB.BaseControl.Controls.add(Forms("Daily").BaseForm)'

MainWindow窗口打开了。我是先打开主窗口的。

请问老师，我的程序有很多窗体，程序运行中利用下面的代码频繁打开这些窗体，请问下面的代码频繁的调用是否会造成程序死机？目前我的程序还没有这个现象，但将来使用久了会不会发生死机？

Dim PB As WinForm.Panel = Forms("MainWindow").Controls("Panel1")

Forms("Daily").OPEN(-1000,-1500)

Forms("Daily).BaseForm.TopLevel = False

Forms("Daily").BaseForm.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None

Forms("Daily").BaseForm.Dock = System.Windows.Forms.DockStyle.Fill

PB.BaseControl.Controls.Clear

PB.BaseControl.Controls.add(Forms("Daily").BaseForm)'

请问老师，我用下面的代码设置某个单元格字体的颜色，运行报错，提示没有找到string的公共成员ForeColor，

请问该如何更改。谢谢！

Dim drtimeHSE As DataRow

drtimeHSE ("Category").ForeColor =Color.Red

请问老师，如何删除当前表的空行？下面的代码如何改动？谢谢。

Dim Filter As String

For Each dc As DataCol In DataTables("表名").DataCols

Filter = Filter & " And " & dc.Name & " Is Null"

Filter = Filter.SubString(5)

DataTables("表名").DeleteFor(Filter)

"1=1" ，请问老师这是什么意思

老师好，下面代码运行报错，提示：未将对象引用设置到对象的实例。请问老师如何更改。谢谢！

Dim Productionchart As DataTable=DataTables("ProjectListAll")

Dim drProductionChart As DataRow

Dim Chart As WinForm.Chart '定义一个图表变量

Dim Series As WinForm.ChartSeries '定义一个图系变量

Dim t As Table = Tables("ProjectListAll") '定义一个变量t引用数据表

Chart = Forms("Data View").Controls("Productionchart") ' 引用窗口中的图表

Chart.ChartType = ChartTypeEnum.Bar '图表类型改为Bar(条形)

Chart.DataSource ="ProjectListAll" '设置绑定表

Chart.SeriesList.Clear() '清除图表原来的图系

Dim ChartDate As String=e.sender.value

messagebox.show("ok")

For Each c As Col In t.Cols

If drProductionChart("Date")=e.sender.value And drProductionChart("Block")=selectednodename And drProductionChart("Type")="2D"

Series = Chart.SeriesList.Add() '增加一个图系

Series.Text = c.Name '设置图系的标题

Series.X.DataField = "Date" 'X轴绑定到日期列

Series.Y.DataField = "T2D_PrimeProduction" '设置Y轴的绑定列

End If

If drProductionChart("Date")=e.sender.value And drProductionChart("Block")=selectednodename And drProductionChart("Type")="3D"

Series = Chart.SeriesList.Add() '增加一个图系

Series.Text = c.Name '设置图系的标题

Series.X.DataField = "Date" 'X轴绑定到日期列

Series.Y.DataField = "T3D_PrimeProduction" '设置Y轴的绑定列

End If

Chart.VisualEffect = True '加上这一行,让你的图表更漂亮

Chart.LegendVisible = True '显示图列

Chart.LegendCompass= CompassEnum.South '图列显示在南方(底端)

老师好，是下面的代码报错，提示：未将对象引用设置到对象的实例，请问怎么改？

Chart = Forms("Data View").Controls("Productionchart") ' 引用窗口中的图表

主题：界面问题