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

左栏'); } else{ document.write('关闭左栏'); } }catch(e){alert(e);}

风格

恢复默认设置
展区
文件集浏览
 图片集浏览
 Flash浏览
 音乐集浏览
 电影集浏览

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]scrict

共有2597人关注过本帖树形打印复制链接主题：[求助]scrict

OKK

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：407 积分：4268 威望：0 精华：0 注册：2016/11/22 19:30:00

[求助]scrict 发帖心情

Post By：2018/3/19 17:57:00 [只看该作者]

sb.AppendLine(" <script type='text/javascript'>")

sb.AppendLine(" function bt() {")

sb.AppendLine(" document.all.tx1.style = 'width: 100%; height: 29px;display:none'}")

sb.AppendLine(" </script>")

HTML可用，狐表不可用，请问如何修改？

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/3/19 19:02:00 [只看该作者]

请贴出完整的可以测试的代码

OKK

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：407 积分：4268 威望：0 精华：0 注册：2016/11/22 19:30:00

Post By：2018/3/19 21:07:00 [只看该作者]

<!DOCTYPE html>

<html>

<head>

function bbo() {

document.all.adc.style = 'width:320px;height:23px;display:none'

}

</script>

#adc

{

width: 85px;

}

</style>

</head>

<body>

<tr>

<td>

</td>

</tr>

</table>

</form>

</body>

</html>

有点蓝

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110587 积分：562831 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2018/3/19 21:26:00 [只看该作者]

[此贴子已经被作者于2018/3/19 21:26:59编辑过]

OKK

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：407 积分：4268 威望：0 精华：0 注册：2016/11/22 19:30:00

Post By：2018/3/19 21:38:00 [只看该作者]

Dim sb As New StringBuilder

Dim fl As String = "d:\图片\" & e.path

If filesys.FileExists(fl)

e.WriteFile(fl)

Else

Select Case e.Path

Case "kfc"

sb.AppendLine("<!DOCTYPE html>")

sb.AppendLine("<html>")

sb.AppendLine("<head>")

sb.AppendLine("<meta c />")

sb.AppendLine("<title>555</title>")

sb.AppendLine("<script type='text/javascript'>")

sb.AppendLine(" function bbo() {")

sb.AppendLine(" document.all.adc.style = 'width:320px;height:23px;display:none'")

sb.AppendLine(" }")

sb.AppendLine("</script>")

sb.AppendLine(" <style type='text/css'>")

sb.AppendLine(" #adc")

sb.AppendLine(" {")

sb.AppendLine(" width: 85px;")

sb.AppendLine(" }")

sb.AppendLine(" </style>")

sb.AppendLine("</head>")

sb.AppendLine("<body>")

sb.AppendLine("<form action='kkk'>")

sb.AppendLine("<table >")

sb.AppendLine("<tr>")

sb.AppendLine("<td>")

sb.AppendLine("<input type='button' style='width: 100px' value='消失'/>")

sb.AppendLine("<select id='adc' name='adc' ></select>")

sb.AppendLine("</td>")

sb.AppendLine("</tr>")

sb.AppendLine("</table>")

sb.AppendLine("</form>")

sb.AppendLine("</body>")

sb.AppendLine("</html>")

e.WriteString(sb.ToString)

End Select

End If

在狐表用不了

有点蓝

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110587 积分：562831 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2018/3/19 21:56:00 [只看该作者]

js函数没有调用啊

sb.AppendLine("<input type='button' style='width: 100px' value='消失' onclick='bbo()' />")

OKK

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：407 积分：4268 威望：0 精华：0 注册：2016/11/22 19:30:00

Post By：2018/3/19 22:07:00 [只看该作者]

加了onclick='bbo()'也不行

我上面两个代码都是加了上去了，不知道为什么复制过来的时候总是没有了onclick='bbo()'

Dim sb As New StringBuilder

Dim fl As String = "d:\图片\" & e.path

If filesys.FileExists(fl)

e.WriteFile(fl)

Else

Select Case e.Path

Case "kfc"

sb.AppendLine("<!DOCTYPE html>")

sb.AppendLine("<html>")

sb.AppendLine("<head>")

sb.AppendLine("<meta c />")

sb.AppendLine("<title>555</title>")

sb.AppendLine("<script type='text/javascript'>")

sb.AppendLine(" function bbo() {")

sb.AppendLine(" document.all.adc.style = 'width:320px;height:23px;display:none'")

sb.AppendLine(" }")

sb.AppendLine("</script>")

sb.AppendLine(" <style type='text/css'>")

sb.AppendLine(" #adc")

sb.AppendLine(" {")

sb.AppendLine(" width: 85px;")

sb.AppendLine(" }")

sb.AppendLine(" </style>")

sb.AppendLine("</head>")

sb.AppendLine("<body>")

sb.AppendLine("<form action='kkk'>")

sb.AppendLine("<table >")

sb.AppendLine("<tr>")

sb.AppendLine("<td>")

sb.AppendLine("<input type='button' style='width: 100px' value='消失'/>")

sb.AppendLine("<select id='adc' name='adc' ></select>")

sb.AppendLine("</td>")

sb.AppendLine("</tr>")

sb.AppendLine("</table>")

sb.AppendLine("</form>")

sb.AppendLine("</body>")

sb.AppendLine("</html>")

e.WriteString(sb.ToString)

End Select

End If

OKK

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：407 积分：4268 威望：0 精华：0 注册：2016/11/22 19:30:00

Post By：2018/3/19 22:08:00 [只看该作者]

又没有了onclick='bbo()'，发不出去，不知道为什么

有点蓝

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110587 积分：562831 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2018/3/19 22:11:00 [只看该作者]

Dim fl As String = "d:\图片\" & e.path

If filesys.FileExists(fl)

e.WriteFile(fl)

Return

End If

Select Case e.Path

Case "kfc"

Dim sb As New StringBuilder

sb.AppendLine("<!DOCTYPE html>")

sb.AppendLine("<html>")

sb.AppendLine("<head>")

sb.AppendLine("<meta c />")

sb.AppendLine("<title>555</title>")

sb.AppendLine("<script type='text/javascript'>")

sb.AppendLine(" function bbo() {")

sb.AppendLine(" document.all.adc.style = 'width:320px;height:23px;display:none'")

sb.AppendLine(" }")

sb.AppendLine("</script>")

sb.AppendLine(" <style type='text/css'>")

sb.AppendLine(" #adc")

sb.AppendLine(" {")

sb.AppendLine(" width: 85px;")

sb.AppendLine(" }")

sb.AppendLine(" </style>")

sb.AppendLine("</head>")

sb.AppendLine("<body>")

sb.AppendLine("<form action='kkk'>")

sb.AppendLine("<table >")

sb.AppendLine("<tr>")

sb.AppendLine("<td>")

sb.AppendLine("<input type='button' style='width: 100px' value='消失' onclick='bbo()'/>")

sb.AppendLine("<select id='adc' name='adc' ></select>")

sb.AppendLine("</td>")

sb.AppendLine("</tr>")

sb.AppendLine("</table>")

sb.AppendLine("</form>")

sb.AppendLine("</body>")

sb.AppendLine("</html>")

e.WriteString(sb.ToString)

End Select

访问路径要这样：http://127.0.0.1/kfc

OKK

小大 10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：407 积分：4268 威望：0 精华：0 注册：2016/11/22 19:30:00

Post By：2018/3/19 22:13:00 [只看该作者]

完整代码就是上面的，加onclick='bbo()'

然后这一行是这样的sb.AppendLine("<meta c />")

下一主题 >> << 上一主题

总数 15 1 2 下一页

主题：[求助]scrict