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

建議幫助加上準確判斷DataCol 列類型的屬性：

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

Output.Show(dc.DataType.Name)

列表重複了:

此主题相关图片如下：p02.png

2013版本可能有Bug:

我今天用手提電腦用了FOX半天,一直還算正常,最後一次操作:

進行內部函數分類操作====>關閉電腦一會後====>再開機打開那個文件=====>

結果設在項目管理處(共6處,不可能誤刪)所有事件一個也沒有了

[此贴子已经被作者于2013-4-14 21:20:52编辑过]

以下是引用hanxuntx在2013-4-19 17:22:00 的发言：

刚提了一个过了，再提一个

发布程序的时候，每次都要到【项目属性】改日期，然后关掉，再打开【发布项目】

建议在发布项目集成发布日期属性

以下是引用狐狸爸爸在2013-4-19 17:30:00的发言：
嗯，有道理

大概忙疯了,4月22日版本没有纳谏!

昏倒!4.22版又出现[项目管理]丢失代码了:图中6处代码不翼而飞.

操作:把qq121454970狐友之给力代码调试器加入后

此主题相关图片如下：p3.png

唉,幸好只是丢失[项目管理]的,如其它地方丢失了,且不知哪里丢了,才大件事.

没有啦,只是在全局代码加了以下代码:

-----------------------------------------------------------------------------------代码编辑器重增加代码调节器按钮

Public Editor As Windows.Forms.RichTextBox

Public Sub Test(ByVal sender As Object, ByVal e As EventArgs)

Dim frm As System.Windows.Forms.Form = System.Windows.Forms.Form.ActiveForm

If frm.name = "frmCommand" Then

Editor = ctype(ctype(Ctype(frm.Controls("SplitContainer1"),windows.Forms.SplitContainer).Panel1.controls(0).Controls(0),windows.Forms.SplitContainer).panel1.Controls(0),windows.Forms.SplitContainer).panel1.controls(0)

Else

Editor = Ctype(Ctype(frm.Controls("MyCodeEditor1").Controls(0),Windows.Forms.SplitContainer).Panel1.Controls(0),Windows.Forms.SplitContainer).Panel1.Controls(0)

End If

Select Case sender.Text

Case "调试代码"

With Editor

Dim s As String

For i As Integer = 0 To .Lines.Length - 1

If s Is Nothing Then

s = .Lines(i) & vbcrlf & "MessageBox.Show(" & i + 1 & ")" & vbcrlf

Else

If i < .Lines.Length - 1 Then

s = s & .Lines(i) & vbcrlf & "MessageBox.Show(" & i + 1 & ")" & vbcrlf

Else

s = s & .Lines(i) & vbcrlf & "MessageBox.Show(" & i + 1 & ")"

End If

Editor.Text = s

End With

Case "正式代码"

With Editor

Dim s,s1 As String

Dim q As Integer

For i As Integer = 0 To .Lines.Length - 1 Step 1

q = q + 1

If q Mod 2 = 0 Then

s1 = .Lines(i).TrimStart() '删除字串符前面的空格

If s1.StartsWith("MessageBox.Show(") = False Then '如果开头不是MessageBox.Show 的话

If s Is Nothing Then

s = .Lines(i)

Else

s = s & vbcrlf & .Lines(i)

End If

Else

If s Is Nothing Then

s = .Lines(i)

Else

s = s & vbcrlf & .Lines(i)

End If

Editor.Text = s

End With

Case Else

Return

End Select

End Sub

[此贴子已经被作者于2013-4-22 15:21:48编辑过]

Public Sub AddUserButton

Dim frm As System.Windows.Forms.Form = System.Windows.Forms.Form.ActiveForm

If frm IsNot Nothing AndAlso (frm.Name = "frmCommand" OrElse frm.name = "frmCodeEditor")

Dim BtnFind As Windows.Forms.Button = frm.Controls("Button4")

Dim UserButton As New System.Windows.Forms.Button

UserButton = New System.Windows.Forms.Button

AddHandler UserButton.Click, AddressOf Test

UserButton.Text = "调试代码"

UserButton.Top = BtnFind.Top

UserButton.Left = 96

If frm.Controls.Contains(UserButton) = False Then

frm.Controls.add(UserButton)

End If

Dim UserButton1 As New System.Windows.Forms.Button

UserButton1 = New System.Windows.Forms.Button

AddHandler UserButton1.Click, AddressOf Test

UserButton1.Text = "正式代码"

UserButton1.Top = BtnFind.Top

UserButton1.Left = 180

If frm.Controls.Contains(UserButton1) = False Then

frm.Controls.add(UserButton1)

End If

End Sub

[此贴子已经被作者于2013-4-22 15:22:23编辑过]

帮助文件:

NavPages

NavPages有以下属性和方法：

......

Insert

插入新的导航页面，并返回所插入的页面。

语法：

Add(Name, ButtonText, ButtonImageFile, Index)

应该如下吧:

Insert

插入新的导航页面，并返回所插入的页面。

语法：

Insert(Name, ButtonText, ButtonImageFile, Index)

以下是引用qq121454970在2013-4-22 16:50:00的发言：

我的代码没有丢失，不关我的事哦图片点击可在新窗口打开查看

========================================

呵呵,应该不是你代码的事,我只是向老大陈述我丢失代码前的操作而已.

测试版出来后,我[项目管理]的代码丢失了3次,应该存在有较深的BUG

以下是引用狐狸爸爸在2013-4-22 17:05:00的发言：

丢失代码的项目，是否用了计划管理？

我现在发现，打开项目之后，如果设置计划管理的事件代码，就是都是项目事件代码，这个问题会马上纠正。

是的,用了计划管理!

主题：Foxtable 2013问题收集贴