小编Isa*_*vaa的帖子

如何使用XSL检查值是空还是空？

例如,如果categoryName是空的？我在选择构造时使用的是.

例如:

<xsl:choose>
    <xsl:when test="categoryName !=null">
        <xsl:value-of select="categoryName " />
    </xsl:when>
    <xsl:otherwise>
        <xsl:value-of select="other" />
    </xsl:otherwise>
</xsl:choose>

突然之间,我开始为像文件这样的文件获得404s http://example.localhost/javascript/jquery.min.js

早些时候一切都很好.我没有改变任何配置,至少不是手动.

但是现在如果我尝试访问/javascript目录本身,我会进入"Cannot serve directory /usr/share/javascript/: No matching DirectoryIndex (index.html,index.cgi,index.pl,index.php,index.xhtml,index.htm) found, and server-generated directory index forbidden by Options directiveApache错误日志.

我正在使用Jenkins构建我的Android应用程序.一旦创建了工件,我希望apk能够通过电子邮件发送给一组用户.我已经知道Testflight等,但我只需要Jenkins将签名的apk通过电子邮件发送给一组用户.我怎样才能做到这一点 ？

亲切的问候

我在项目中有代码将Sheet中的数据读入记录集.VBA代码受密码保护.
为了测试,我简化了代码,如下所示:

Option Explicit

Sub sTest()
    Dim dbtmp As DAO.Database

    Set dbtmp = OpenDatabase(Application.ActiveWorkbook.FullName, False, True, _
      "Excel 8.0;HDR=Yes")

    dbtmp.Close
    Set dbtmp = Nothing
End Sub

每当我从Userform运行此代码时,关闭excel后,系统会提示我输入VBAProject密码.根据我的意思,工作簿中的模块数量,我必须取消,至少两次.

上周我一直在打破这个问题,阅读我能找到的网上的每一篇文章,但还没有找到解决方案.

我在Excel中创建了一个旋转3D图表的宏.我将图表复制到PowerPoint中,设置代码以在幻灯片显示时在PowerPoint中运行.代码运行,但我无法让它实际更改屏幕上显示的内容.幻灯片处于编辑模式时,图形会旋转.知道如何让代码不仅仅运行(我可以看到调试数字显示),但在演示模式下更新屏幕？我的代码是:

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Public Sub SpinTheChart()

    RotateX = ActivePresentation.Slides(2).Shapes(2).Chart.ChartArea.Format _
                    .ThreeD.RotationX

    Do While ActivePresentation.SlideShowWindow.View.CurrentShowPosition = 2
        RotateX = RotateX + 7
        If RotateX > 360 Then RotateX = RotateX - 360
        ActivePresentation.Slides(2).Shapes(2).Chart.ChartArea.Format _
                    .ThreeD.RotationX = RotateX
        DoEvents
        Sleep 125
        Debug.Print RotateX
    Loop

End Sub

Sub OnSlideShowPageChange()
    Dim i As Integer
    i = ActivePresentation.SlideShowWindow.View.CurrentShowPosition
    If i = 2 Then SpinTheChart
End Sub

更新:我还在打这个.似乎有些建议说更新当前显示的图表,您需要在DoEvents下面使用:

SlideShowWindows(1).View.GotoSlide SlideSowWindows(1).View.CurrentShowPosition

但这不起作用.它退出正在运行的任何代码.因此,第一个函数中的Do/Loop退出,并且不会继续进行第二次迭代.

给定2个文件夹：/ folder1和/ folder2，每个文件夹中都有一些文件和子文件夹。我使用以下命令比较包括子文件夹在内的文件差异：

diff -buf /folder1 /folder2

在文件夹和文件结构方面没有区别。

但是，我发现这两个文件夹的文件之间存在一些权限差异。有没有简单的方法/命令可以比较Unix上这2个文件夹（包括子文件夹）下每个文件的权限？

谢谢，

您好我正在尝试为用户选择使用他们的Facebook帐户登录我的网站.
据我在facebook api中读到,我发现只有登录弹出窗口,但我不喜欢它...
我想在stackoverflow上做到这一点
1.用户点击"登录"图像ot按钮
2.整个窗口进入FB页面并询问用户perm
3.将用户返回到我的页面...

我想知道如何将文本框附加到我正在处理的宏的Excel图表中的点或线.我一直在用这样的.AddTextbox方法

.Shapes.AddTextbox(msoTextOrientationHorizontal, 150, 250, 100, 15) _
      .TextFrame.Characters.Text = "Temperature"

但是我必须手动将文本框拖动到它所代表的图表上的线上,因为图表的方向不是线.有没有办法将线/点转换为图表方向,我可以将其用作变量？或另一种方式？可能使用datalabel函数,但我希望能够自定义其中一个轴位置.谢谢

我有一个基于Excel的应用程序依赖于几个不同的数据库,我使用ADO(Microsoft ActiveX Data Objects 6.1库)连接到这些数据库.数据库驻留在区域服务器上,并且建立初始连接存在开销,因此我将连接缓存在Scripting.Dictionary对象中以供重用.

Private moConnCacheDict As Scripting.Dictionary

当我使用kdb + qodbc.dll数据库驱动程序时,我得到意外的行为.我可以按预期连接和重用多个数据源(Oracle,Sybase,Access)和一个KDB数据库实例.但是,如果我创建第二个KDB数据库连接并对新数据集执行查询,则尽管查询是合法的,但不会返回任何数据.

Recordset.BOF = TRUE and Recordset.EOF = TRUE 

它似乎执行正常,字段可见.与前一个区域服务器的连接似乎仍然存在,我可以成功检索驻留在原始服务器上的数据,尽管如果我看到,

Recordset.ActiveCommand.ActiveConnection.Properties.Item("Extended Properties")

,是新的连接字符串.

KDB +连接字符串使用以下语法:

DRIVER=kdb+;DBQ=XXXXX;UID=XXXXX;PWD=XXXXX;

我已经将核心VBA函数作为示例包含在内:

Private Function ExecuteQuery(sDBName As String, ByRef oRst As ADODB.Recordset, Optional bDeleteConnection As Boolean) As Boolean
Dim oDBConn As ADODB.Connection
Dim sSql As String

'delete connection
If bDeleteConnection Then Call DropConnection(sDBName)

'get cached or new connection
Call GetConnection(sDBName, oDBConn)

Select Case sDBName
Case "MAIN_US"
    sSql = mSQL_MAIN
Case "MD_ASIA"
    sSql = mSQL_MDASIA
End Select …

我有2个非常相似的函数，在将代码切换到Option Explicit调试目的（成功！）之前，这些函数已经起作用。从那时起，该Max功能不再起作用，并且我无法解释将其作为xl vba完美菜鸟解决的原因。

• Max函数（不起作用）：

  Function MaxAddress(The_Range) As Variant
  ' See http://support.microsoft.com/kb/139574
  
  Dim MaxNum As Variant
  Dim cell As Range
  
    ' Sets variable equal to maximum value in the input range.
    MaxNum = Application.Max(The_Range)
    ' Loop to check each cell in the input range to see if equals the
    ' MaxNum variable.
    For Each cell In The_Range
       If cell.Value = MaxNum Then
          ' If the cell value equals the MaxNum variable it
          ' returns …

  Run Code Online (Sandbox Code Playgroud)